#!/usr/bin/perl
use English;

$a = "axxxxbxxxcx";
# Hier wird nicht der laengste Treffer gefunden !?!
$a =~ m/(.x|..x)/;
print $PREMATCH . "|" . $MATCH . "|" . $POSTMATCH;
